
Partial Class WebForm_ManageSalesGross
    Inherits System.Web.UI.Page

    Dim MySF As New SF
    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        Me.Controls.Add(MySF)
    End Sub

    Protected Sub Page_LoadComplete(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadComplete
        If Not ispostback Then
            MySF.CopyTo(SFReport1.SearchOption)
            SFReport1.SearchOption.OnSubmit(EventArgs.Empty)
            SFReport1.SearchOption.Visible = False
        End If
    End Sub

    Protected Sub Page_PreInit(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreInit
        Dim Meeting As String = Me.Request.QueryString.Item("Meeting")
        If Meeting IsNot Nothing AndAlso Meeting = "Y" Then
            Me.MasterPageFile = "~/WebForm/Empty.master"
        End If
    End Sub

    Public Class SF
        Inherits SearchOptionControl

        Public Overrides Sub OnSubmit(ByVal e As System.EventArgs)

        End Sub

        Public Overrides Property Year() As Integer
            Get
                Return Session(Me.SessionID & "SF_Year")
            End Get
            Set(ByVal value As Integer)

            End Set
        End Property

        Public Overrides Property Month() As String
            Get
                Return Session(Me.SessionID & "SF_Month")
            End Get
            Set(ByVal value As String)

            End Set
        End Property

        Public Overrides Property Channel() As String
            Get
                Return Session(Me.SessionID & "SF_Channel")
            End Get
            Set(ByVal value As String)

            End Set
        End Property

        Public Overrides Property MMPP() As String
            Get
                Return Session(Me.SessionID & "SF_MMPP")
            End Get
            Set(ByVal value As String)

            End Set
        End Property

        Public Overrides Property sqlArray() As String(,)
            Get
                Return Session(Me.SessionID & "SF_sqlArray")
            End Get
            Set(ByVal value As String(,))

            End Set
        End Property

        Public Overrides Property Version1() As String
            Get
                Return Session(Me.SessionID & "SF_Version1")
            End Get
            Set(ByVal value As String)

            End Set
        End Property

        Public Overrides Property DisplayYear() As String
            Get
                Return Session(Me.SessionID & "SF_DisplayYear")
            End Get
            Set(ByVal value As String)

            End Set
        End Property

        Public Overrides Property BasicSignature() As String
            Get
                Return Session(Me.SessionID & "SF_BasicSignature")
            End Get
            Set(ByVal value As String)

            End Set
        End Property

        Public ReadOnly Property SessionID() As String
            Get
                Return Me.Request.QueryString.Item("SessionID")
            End Get
        End Property
    End Class

End Class


